Packages

library(readr)
library(dplyr)
library(ggplot2)
library(plotly)
Warning: package ‘plotly’ was built under R version 4.0.5
Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

load data

wrangle data

viz data

dv1 <- ggplot(edit_x35) +
 aes(x = primary_disease, fill = lineage) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 coord_flip() +
 theme_classic()

ggplotly(dv1) 
LS0tCnRpdGxlOiAiV29ya2Zsb3cgOCAyMyAyMDIyIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgoKUGFja2FnZXMKYGBge3J9CmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShwbG90bHkpCmBgYAoKbG9hZCBkYXRhCmBgYHtyfQpYMzUwMjA5MDMgPC0gcmVhZHI6OnJlYWRfY3N2KCJodHRwczovL25kb3dubG9hZGVyLmZpZ3NoYXJlLmNvbS9maWxlcy8zNTAyMDkwMyIpCgpgYGAKCndyYW5nbGUgZGF0YQpgYGB7cn0KCmVkaXRfeDM1IDwtIFgzNTAyMDkwMyAlPiUKIGZpbHRlcihzZXggJWluJSAiRmVtYWxlIiB8IGlzLm5hKHNleCkpICU+JQogZmlsdGVyKCEobGluZWFnZSAlaW4lICJ1bmtub3duIikpCgpgYGAKCnZpeiBkYXRhCmBgYHtyfQoKZHYxIDwtIGdncGxvdChlZGl0X3gzNSkgKwogYWVzKHggPSBwcmltYXJ5X2Rpc2Vhc2UsIGZpbGwgPSBsaW5lYWdlKSArCiBnZW9tX2JhcigpICsKIHNjYWxlX2ZpbGxfaHVlKGRpcmVjdGlvbiA9IDEpICsKIGNvb3JkX2ZsaXAoKSArCiB0aGVtZV9jbGFzc2ljKCkKCmdncGxvdGx5KGR2MSkgCgpgYGAKCg==